home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Prog / T / Think-Pascal-7.0.cpt / THINK Pascal Interfaces / Notification.p < prev    next >
Encoding:
Text File  |  1991-04-03  |  1.2 KB  |  69 lines  |  [TEXT/PJMM]
  1. {    This file has been processed by The THINK Pascal Source Converter, v1.1.    }
  2.  
  3. {
  4. Created: Sunday, January 6, 1991 at 10:50 PM
  5.     Notification.p
  6.     Pascal Interface to the Macintosh Libraries
  7.  
  8.         Copyright Apple Computer, Inc.    1989-90
  9.         All rights reserved
  10. }
  11.  
  12.  
  13. {$IFC UNDEFINED UsingIncludes}
  14. {$SETC UsingIncludes := 0}
  15. {$ENDC}
  16.  
  17.  
  18.     UNIT Notification;
  19.     INTERFACE USES    Types,OSUtils;
  20.  
  21.  
  22.  
  23.  
  24.  
  25.  
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36. CONST
  37. nmType = 8;
  38.  
  39. TYPE
  40. NMRecPtr = ^NMRec;
  41. NMRec = RECORD
  42.     qLink: QElemPtr;        {next queue entry}
  43.     qType: INTEGER;         {queue type -- ORD(nmType) = 8}
  44.     nmFlags: INTEGER;       {reserved}
  45.     nmPrivate: LONGINT;     {reserved}
  46.     nmReserved: INTEGER;    {reserved}
  47.     nmMark: INTEGER;        {item to mark in Apple menu}
  48.     nmIcon: Handle;         {handle to small icon}
  49.     nmSound: Handle;        {handle to sound record}
  50.     nmStr: StringPtr;       {string to appear in alert}
  51.     nmResp: ProcPtr;        {pointer to response routine}
  52.     nmRefCon: LONGINT;      {for application use}
  53.     END;
  54.  
  55.  
  56. FUNCTION NMInstall(nmReqPtr: NMRecPtr): OSErr;
  57.     INLINE $205F,$A05E,$3E80;
  58. FUNCTION NMRemove(nmReqPtr: NMRecPtr): OSErr;
  59.     INLINE $205F,$A05F,$3E80;
  60.  
  61.  
  62.     { UsingNotification }
  63.  
  64.  
  65.     IMPLEMENTATION
  66. END.
  67.  
  68.  
  69.